home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / MENU2.SRC < prev    next >
Text File  |  1990-11-03  |  384b  |  38 lines
  1. ;\|
  2. ;MENU2.SRC     Translated from MENU2.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;MENU2    01:33:54 PM  29/11/88   |
  4.     define(A|A|2||)
  5.     mount(WAIT|S)
  6.     co(A|G)
  7.     if A > ("") then run("TRANS")
  8.     if A = ("X") then run("recmenu")
  9.     if A = ("") then run("recmenu")
  10. \STWAIT    
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.                                PLEASE WAIT
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35. \
  36. \
  37.  
  38.